home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbpacket.zip / PRIME2.BAS < prev    next >
BASIC Source File  |  1991-10-09  |  410b  |  19 lines
  1. REM PRIME NUMBER FINDER II (PRIME2.BAS)
  2. CLS
  3. N = 1
  4. DO UNTIL N = 0
  5.    PRINT
  6.    INPUT "Enter a positive interger, 0 to exit"; N
  7.    FOR I = 2 TO N - 1
  8.       IF N MOD I = 0 THEN
  9.          PRINT N; "is not a prime"
  10.          PRINT " because it's divisible by"; I
  11.          EXIT FOR
  12.       ELSEIF I = N - 1 THEN PRINT N; "is a prime"
  13.    END IF
  14.    NEXT I
  15.    IF N = 2 THEN PRINT N; "is a prime"
  16. LOOP
  17. END
  18.  
  19.